<script>on mouseUpglobal ckeyif ckey thenput the top of me into MyTopput the textHeight of me into TxHtput the number of lines of me into noLwait until the mouseclickput max (1,1 + trunc((the mouseV - MyTop)/TxHt)) into Lput min (L,noL) into Lselect line L of meput false into ckeyelsehide meend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>0</top>
<right>322</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>data</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>393</left>
<top>7</top>
<right>493</right>
<bottom>29</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Done</name>
<script>on mouseUpglobal modeanswer "Numeric or Text Data?" with "Num" or "Text"hide bg fld "coordinates"show cd pictshow cd fld "title"hide mesort the lines of bg fld "data"set the locktext of bg fld "data" to trueend mouseUp</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>354</left>
<top>87</top>
<right>465</right>
<bottom>112</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>numdat</name>
<script></script>
</part>
<name>Map Color BG</name>
<script>on showcdfldsput the number of cd flds into rrepeat with i = 1 to rshow cd fld iend repeatend showcdfldson doSL--display the legend--take the values from here and paste them to the legend cardif bg fld "legend" is empty thenanswer "No legend, please define one"exit doSLend ifanswer "Be patient, this is slow"put cd fld "title" into cd fld "title" of cd "legend"put the number of lines of bg fld "legend" into nlput the short name of this cd into cngo cd "legend"repeat with i = 1 to nlset the cursor to busyput word 1 of line i of bg fld "legend" of cd cn into line i of cd fld "minimum" ¬of cd "legend"put word 2 of line i of bg fld "legend" of cd cn into line i of cd fld "maximum"¬of cd "legend"set the pattern to word 3 of line i of bg fld "legend" of cd cnput "P-"&i into bnasend mouseUp to cd btn bnaend repeatend doSLon closeCardset the locktext of bg fld "numdat" to falseput the number of lines of bg fld "data" into bg fld "numdat"set the locktext of bg fld "numdat" to trueend closeCardon closebackgroundif "Map Color" is in the menus then disable menu "Map Color"close window "Navigator"if "State-Smart" is in the menus then enable menuItem "Quiz" of menu "State-Smart"end closebackgroundon openbackground-- set the userlevel to 5 --just for developmentif "Map Color" is not in the menus thenglobal defcol --default colorsput "21,11,17,12,6,7,20" into defcollock screengo cd 1 of this bgcreate menu "Map Color"put "Edit Data..." & RETURN¬& "Define Legend" & RETURN¬& "Paint Map" & RETURN¬& "Undo Paint" & RETURN¬& "Copy Map" & RETURN¬& "Show Legend" into menu "Map Color"put the number of menuItems of menu "Map Color" into nrepeat with i = 1 to nset the menumsg of menuItem i of menu "Map Color" to¬line i of cd fld mumsgsend repeatset the enabled of menuItem "Undo Paint" of menu "Map Color" to falseelseenable menu "Map Color"end ifif "State-Smart" is in the menus then disable menuItem "Quiz" of menu "State-Smart"unlock screennavend openbackgroundon doCM--copy the maplock screengo first cd of this bg -- a guaranteed clean cardset the userlevel to 5doMenu("Copy Card")doMenu("Paste Card")set the cantDelete of this cd to falseask "title of new map?"put it into mnset the name of this card to mnput mn into cd fld "title"put "" into bg fld "legend"put the number of lines of bg fld "data" into nlrepeat with i = 1 to nlput word 1 of line i of bg fld "data" into line i of bg fld "data"end repeatshow bg btn "done"popULunlock screenend doCMon doED--allows the user to enter dataput it into modehide cd picthide bg fld "coordinates"hide bg fld "legend"hide cd fld "title"show bg fld "Data"set the locktext of bg fld "data" to falseshow bg btn "Done"if bg fld "data" is empty thenanswer "Type: name of each region space data" with "OK"end ifend doEDon doDL -- define a legendanswer "Automatic or manual?" with "Auto" or "Manual"if it is "Manual" thenget cd fld "title"go cd "legend"put it into cd fld "title"elseif bg fld "data" is empty then answer "First give me some data"put 100000000 into minput -1000000000 into maxput the number of lines of bg fld "data" into nlput bg fld "data" into temprepeat with i = 1 to nlif word 2 of line i of temp < min thenput word 2 of line i of temp into minend ifif word 2 of line i of temp > max thenput word 2 of line i of temp into maxend ifend repeatput (max - min) / 7 into rput min into word 1 of line 1 of bg fld "legend"put max into word 2 of line 7 of bg fld "legend"repeat with i = 1 to 7put min + (i-1)* r into word 1 of line i of bg fld "legend"put min + i*r into word 2 of line i of bg fld "legend"global defcol --default colorsput item i of defcol into word 3 of line i of bg fld "legend"end repeatanswer "Auto Legend successful"end ifend doDLon doPM---paint the mapshow cd pictset the userlevel to 3global demosndput 0 into errrepeat with i = 1 to 50set the cursor to busyif word 1 of line i of bg fld "data" <> word 1 of line i+err of bg fld "coordinates" thenanswer "Possible data misalignment" with "Continue" or "Edit Data"if it is "Edit Data" thendoUPshow bg fld "coordinates"doEDexit doPMelse --(Go on) find a matchput false into matchrepeat while match is falseif i+err < 50 and word 1 of line i+err of bg fld "coordinates" <¬word 1 of line i of bg fld "data" thenadd 1 to errelseif word 1 of line i of bg fld "data" =¬word 1 of line i+err of bg fld "coordinates" thenput true into matchanswer "Continuing: " & err & " regions skipped." with "OK"end ifend ifend repeatif match is false thenanswer "Unable to continue" with "OK"exit doPMend ifend if --**if it is edit data**end if --**if <>--check mode here text or numglobal modeif mode = "text" thenput the number of words of line i of bg fld "data" into nput word 2 to n of line i of bg fld "data" into theNumelseput word 2 of line i of bg fld "data" into theNumend ifput the number of lines of bg fld "legend" into nlset the pattern to 0repeat with j = 1 to nlput line j of bg fld "legend" into theLinif mode = "text" thenif theNUM = word 1 of theLin thenset the pattern to word 3 of theLINexit repeatend ifelseif theNum >= word 1 of theLin and theNum <= word 2 of theLin thenset the pattern to word 3 of theLinexit repeatend ifend ifend repeatput the number of words of line i+err of bg fld "coordinates" into nPntput nPnt div 2 into nPntchoose bucket toolrepeat with j = 1 to nPntput word 2*(j-1)+2 of line i+err of bg fld "coordinates" into xput word 2*(j-1)+3 of line i+err of bg fld "coordinates" into yif demosnd is true thenplay "Click"play "bluup"wait until the sound is "done"end ifclick at x,yend repeatend repeatchoose browse toolset the enabled of menuItem "Undo Paint" of menu "Map Color" to truepopULend doPMon doUPset the userlevel to 4choose brush tooldoMenu "Revert"choose browse toolset the enabled of menuItem "Undo Paint" of menu "Map Color" to falsepopULend doUPfunction killComma dtaput the number of chars in dta into nrepeat with i = 1 to nif char i of dta <> "," then put char i of dta after tend repeatreturn tend killComma</script>
